home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Grafik / Misc / ImageEnginer / ARexx / PageStream_Export.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-28  |  1.7 KB  |  71 lines
  1. /*
  2. ** $VER: PageStream_Export 1.1
  3. **
  4. ** Copyright © 1996 by Volkmar Funke
  5. **
  6. ** Dieses Arexx Acript exportiert ein Bild nach Pagestream3
  7. ** Beide Programme muessen laufen
  8. ** Das Script wurde mit PageStream3.2  und ImageEngineer 3.4 getestet
  9. **
  10. */
  11.  
  12. OPTIONS RESULTS
  13. TEMP_FILE = 't:Image_from_IE'
  14. TRACE OFF
  15.  
  16. /* Sicherstellung das ARexx supportet ist */
  17.  
  18. if ~show('L','rexxsupport.library') then
  19.         call addlib('rexxsupport.library',0,-30)
  20. if ~show('L','softlogik:libs/slarexxsupport.library') then
  21.         call addlib('softlogik:libs/slarexxsupport.library', 0, -30)
  22.  
  23. if ~show(P,'PAGESTREAM') then do
  24.         'REQUEST' '"PageStream nicht gestartet !!"' '" OK "'
  25.         EXIT
  26. end
  27.  
  28. 'SAVE_DATA' arg(1) '"'||TEMP_FILE||'"' '"ILBM CmpByteRun1"' /*Speichern des Bildes*/
  29.  if (RC ~= 0) then do
  30.         'REQUEST' '"Konnte temporäre Datei nicht anlegen"' '" OK "'
  31.         EXIT
  32.  end
  33.  
  34. /* Requester wurde eingebaut falls man das Bild auslagert, nach ausschalten des Rechners
  35. ** ist das Bild verloren !!
  36. */
  37.  
  38.   'REQUEST "             !!! ACHTUNG !!!' D2C(10),
  39.                       '  ' D2C(10),
  40.            'Bilddatei ist nur temporär gespeichert." " OK "'
  41.  
  42. ADDRESS 'PAGESTREAM'
  43.  
  44. /* Uebergabe der Grafik, falls kein Dokument geoeffnet Fehlermeldung */
  45.  
  46. 'refresh wait'     /* PageStream friert den Bildschirmrefresh ein -> ctrl f10 */
  47.  
  48. ScreentoFront
  49.  
  50. placegraphic FILE '"'||TEMP_FILE||'"'
  51.  if rc~=0 then do
  52.  
  53.     ADDRESS 'IMAGEENGINEER'
  54.     IE_TO_FRONT
  55.     REQUEST '"Kein Dokument in PageStream offen !!"' ' "OK" '
  56.     signal cancel
  57.  end
  58.  
  59. 'refresh continue'
  60.  
  61. EXIT
  62.  
  63. CANCEL:
  64.  
  65. ADDRESS COMMAND
  66. 'run >nil: delete' '"'||TEMP_FILE||'"'
  67.  
  68. ADDRESS 'PAGESTREAM' /* Muss durchgefuehrt werden, sonst keine Darstellung wenn neues */
  69. 'refresh continue'   /* Dokument geoeffnet wird */
  70.   EXIT
  71.